home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mssghkct / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-11-20  |  3.1 KB  |  104 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About SysTray Sample"
  5.    ClientHeight    =   1065
  6.    ClientLeft      =   2895
  7.    ClientTop       =   4110
  8.    ClientWidth     =   5040
  9.    Height          =   1470
  10.    Icon            =   "About.frx":0000
  11.    Left            =   2835
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1065
  16.    ScaleWidth      =   5040
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   3765
  19.    Width           =   5160
  20.    Begin VB.CommandButton cmdOK 
  21.       Caption         =   "&OK"
  22.       Height          =   338
  23.       Left            =   3945
  24.       TabIndex        =   1
  25.       Top             =   90
  26.       Width           =   1005
  27.    End
  28.    Begin VB.Label Label4 
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "e-mail:"
  31.       Height          =   210
  32.       Left            =   690
  33.       TabIndex        =   4
  34.       Top             =   675
  35.       Width           =   510
  36.    End
  37.    Begin VB.Label lblMailTo 
  38.       BackStyle       =   0  'Transparent
  39.       Caption         =   "alexw@netvision.net.il"
  40.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   8.25
  43.          Charset         =   177
  44.          Weight          =   400
  45.          Underline       =   -1  'True
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       ForeColor       =   &H8000000D&
  50.       Height          =   240
  51.       Left            =   1260
  52.       MouseIcon       =   "About.frx":000C
  53.       MousePointer    =   99  'Custom
  54.       TabIndex        =   3
  55.       Top             =   675
  56.       Width           =   1875
  57.    End
  58.    Begin VB.Label Label2 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "Copyright 
  61.  1998, Alex Wainstein"
  62.       Height          =   240
  63.       Left            =   675
  64.       TabIndex        =   2
  65.       Top             =   405
  66.       Width           =   3210
  67.    End
  68.    Begin VB.Label Label1 
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "SysTray Sample (uses MsgHook Control)"
  71.       Height          =   240
  72.       Left            =   675
  73.       TabIndex        =   0
  74.       Top             =   135
  75.       Width           =   3210
  76.    End
  77.    Begin VB.Image Image1 
  78.       Height          =   480
  79.       Left            =   90
  80.       Picture         =   "About.frx":015E
  81.       Top             =   90
  82.       Width           =   480
  83.    End
  84. Attribute VB_Name = "frmAbout"
  85. Attribute VB_Creatable = False
  86. Attribute VB_Exposed = False
  87. Option Explicit
  88. Private Sub cmdOK_Click()
  89. Unload Me
  90. End Sub
  91. Private Sub lblMailTo_Click()
  92. Dim res As Long
  93. Dim lpOperation As String
  94. Dim lpFile As String
  95. Dim lpParameters As String
  96. Dim lpDirectory As String
  97. Dim nShowCmd As Long
  98. lpOperation = "open"
  99. lpFile = "MAILTO:" + lblMailTo
  100. nShowCmd = vbNormalFocus
  101. res = ShellExecute(hwnd, lpOperation, lpFile, lpParameters, ByVal lpDirectory, nShowCmd)
  102. Unload Me
  103. End Sub
  104.